home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / tag_bbs / dvtag.zip / DOOR.BAT < prev    next >
DOS Batch File  |  1991-12-22  |  16KB  |  796 lines
  1. @Echo off
  2. Rem  Doors Batch File for The Abacus - Node 1
  3. Rem  Nodes 2 and 3 have similar batch files with changes for the bbs
  4. Rem  directory, comport and irq where applicable.
  5.  
  6. Rem  Doors marked with an asterisk don't work when Use Serial Ports
  7. Rem  is set to "No" in Desqview. (Saying "Yes" will slow the system down.)
  8. Rem  Most of these are Pcboard games and others that won't work on Com3
  9. Rem  using irq5 (non-standard irq), so I have them disabled, since my 4-port
  10. Rem  serial card won't allow the system to share irq's.
  11. Rem  If anyone knows how I can get these games working, I'd appreciate
  12. Rem  your advice.
  13.  
  14. Echo %5 %6 entered %1 on %_date at %_time. >>e:\bu\dsz1.log
  15. Echo %5 %6 entered %1 at %_time on node %node. >> c:\bbs\s\bullet18.msg
  16.  
  17. Rem Online Games
  18. if (%1)==() goto error
  19. if (%1)==(arena) goto arena
  20. if (%1)==(bgame) goto bgame*
  21. if (%1)==(barons) goto barons
  22. if (%1)==(bsb) goto bsb*
  23. if (%1)==(bjack) goto bjack*
  24. if (%1)==(chess) goto chess*
  25. if (%1)==(crash) goto crash*
  26. if (%1)==(dnd) goto dnd
  27. if (%1)==(drawpoke) goto drawpoke
  28. if (%1)==(decoder) goto decoder*
  29. if (%1)==(double) goto double
  30. if (%1)==(empire) goto empire
  31. if (%1)==(fifi) goto fifi*
  32. if (%1)==(fishing) goto fishing
  33. if (%1)==(galwar) goto galwar
  34. if (%1)==(geop) goto geop
  35. if (%1)==(globewar) goto globewar
  36. if (%1)==(golf) goto golf
  37. if (%1)==(gupsup) goto gupsup*
  38. if (%1)==(hangman) goto hangman
  39. if (%1)==(indy) goto indy
  40. if (%1)==(keno) goto keno*
  41. if (%1)==(life) goto life*
  42. if (%1)==(match) goto match
  43. if (%1)==(melee) goto melee
  44. if (%1)==(murder) goto murder*
  45. if (%1)==(othello) goto othello*
  46. if (%1)==(overkill) goto overkill
  47. if (%1)==(phant) goto phant
  48. if (%1)==(pimp) goto pimp
  49. if (%1)==(pit) goto pit
  50. if (%1)==(planet) goto planet
  51. if (%1)==(realms) goto realms
  52. if (%1)==(robot) goto robot
  53. if (%1)==(scrabble) goto scrabble
  54. if (%1)==(sharx) goto sharx*
  55. if (%1)==(solitree) goto solitree
  56. if (%1)==(solpoker) goto solpoker*
  57. if (%1)==(sslot) goto sslot
  58. if (%1)==(triyat) goto triyat
  59. if (%1)==(twars) goto twars*
  60. if (%1)==(wheel) goto wheel*
  61. if (%1)==(yat) goto yat
  62. if (%1)==(yt) goto yt*
  63. if (%1)==(zag) goto zag
  64. if (%1)==(zodiac) goto zodiac*
  65.  
  66. Rem Doorway Menu
  67. if (%1)==(educ) goto educ
  68. if (%1)==(fin) goto fin
  69. if (%1)==(games) goto games
  70.  
  71. Rem Main Menu
  72. if (%1)==(ansi) goto ansi 
  73. if (%1)==(doordos) goto doordos
  74. if (%1)==(refund) goto refund
  75. if (%1)==(silver) goto silver
  76.  
  77. Rem Trivia Menu
  78. if (%1)==(alaska) goto alaska*
  79. if (%1)==(computer) goto computer*
  80. if (%1)==(disney) goto disney*
  81. if (%1)==(emerg) goto emerg*
  82. if (%1)==(hobbit) goto hobbit*
  83. if (%1)==(movie) goto movie*
  84. if (%1)==(potpourr) goto potpourr*
  85. if (%1)==(rockroll) goto rockroll*
  86. if (%1)==(sex) goto sex*
  87. if (%1)==(sports) goto sports*
  88. if (%1)==(startrek) goto startrek*
  89. if (%1)==(televis) goto televis*
  90.  
  91. Rem Download Tag
  92. if (%1)==(tagg) goto tagg
  93. if (%1)==(tagy) goto tagy
  94. if (%1)==(tagz) goto tagz
  95.  
  96.  
  97. :Error
  98. Echo An error has occurred.  Please try again, or please inform > com2
  99. Echo Deb that the batch file is messed up.  Thank you.   > com2
  100. goto end
  101.  
  102. :Arena
  103. cd \bbs\games\arena
  104. if exist in.use goto inuse
  105. copy c:\bin\in.use
  106. copy \bbs\dorinfo1.def
  107. arena1
  108. del in.use
  109. del dorinfo1.def
  110. goto end
  111.  
  112. :Barons
  113. cd \bbs\games\barons
  114. if exist in.use goto inuse
  115. copy c:\bin\in.use
  116. barons 1 c:\bbs QBBS
  117. del in.use
  118. goto end
  119.  
  120. :Bgame
  121. goto end
  122. dm 1 pcb14 * c:\bbs\games\bgame\
  123. cd \bbs\games\bgame
  124. if exist in.use goto inuse
  125. copy c:\bin\in.use
  126. bgame bgame.cfg
  127. del in.use
  128. del pcboard.*
  129. goto end
  130.  
  131. :Bjack
  132. cd \bbs\games\black
  133. if exist in.use goto inuse
  134. copy c:\bin\in.use
  135. copy 21_1.cfg 21.cfg
  136. 21 21.cfg
  137. copy 21.dat c:\bbs\s
  138. del in.use
  139. goto end
  140.  
  141. :Bsb
  142. dm 1 pcb12 * *
  143. cd \bbs\games\bsb
  144. if exist in.use goto inuse
  145. copy c:\bin\in.use
  146. baybull2 bsb1.cfg
  147. bsbscore
  148. del in.use
  149. goto end
  150.  
  151. :Chess
  152. cd \bbs\games\chessmst
  153. if exist in.use goto inuse
  154. copy c:\bin\in.use
  155. cmagic c:\bbs\dorinfo1.def
  156. del in.use
  157. goto end
  158.  
  159. :Crash
  160. dm 1 pcb14 * *
  161. cd \bbs\games\crash
  162. if exist in.use goto inuse
  163. copy c:\bin\in.use
  164. copy crash1.cfg crash.cfg
  165. crash crash.cfg
  166. del in.use
  167. goto end
  168.  
  169. :Decoder
  170. dm 1 pcb14 * *
  171. cd \bbs\games\decoder
  172. if exist in.use goto inuse
  173. copy c:\bin\in.use
  174. decode6 decode1.cfg
  175. copy decode.dat c:\bbs\s\decode.msg
  176. del in.use
  177. goto end
  178.  
  179. :Dnd
  180. dm 1 pcb14 * *
  181. cd\bbs\games\dnd
  182. Set dndbbs=c:\bbs\games\dnd\
  183. set dnddat=c:\bbs\games\dnd\
  184. set dnddoc=c:\bbs\games\dnd\
  185. set dndtemp=c:\bbs\games\dnd\
  186. set dnddoor=c:\bbs\
  187. cd\bbs\games\dnd
  188. dndbbs 1
  189. unset dndbbs
  190. unset dnddat
  191. unset dnddoc
  192. unset dndtemp
  193. unset dnddoor
  194. goto end
  195.  
  196. :Double
  197. cd\bbs\games\double
  198. if exist in.use goto inuse
  199. copy c:\bin\in.use
  200. copy double1.cfg doublest.cfg
  201. doublest doublest.cfg
  202. del in.use
  203. goto end
  204.  
  205. :Drawpoke
  206. cd\bbs\games\poker
  207. if exist in.use goto inuse
  208. copy c:\bin\in.use
  209. copy draw1.cfg drawpoke.cfg
  210. drawpoke drawpoke.cfg
  211. del in.use
  212. goto end
  213.  
  214. :Empire
  215. cd \bbs\games\empire
  216. copy c:\bbs\dorinfo1.def
  217. empire c:\bbs 2 -fdorinfo1.def
  218. copy scores.txt c:\bbs\s\empire.msg
  219. del dorinfo1.def
  220. goto end
  221.  
  222. :Fifi
  223. dm 1 pcb12 * *
  224. cd \bbs\games\fifi
  225. if exist in.use goto inuse
  226. copy c:\bin\in.use
  227. copy fifi1.cfg fifi.cfg
  228. fifi fifi.cfg
  229. del in.use
  230. goto end
  231.  
  232. :Fishing
  233. rem dm 1 pcb14 * *
  234. cd\bbs\games\fish
  235. if exist in.use goto inuse
  236. copy c:\bin\in.use
  237. rem fishing 5 c:\bbs /b19200
  238. fishing 1 c:\bbs 1 /b19200
  239. fishtext c:\bbs\s\fish.msg c:\bbs\s\fish.clr
  240. del in.use
  241. goto end
  242.  
  243. :Galwar
  244. qdoor 1 c:\bbs\games\galwar
  245. cd \bbs\games\galwar
  246. if exist in.use goto inuse
  247. copy c:\bin\in.use
  248. copy galwar1.ctl galwar.ctl
  249. twars
  250. copy rankings.gw c:\bbs\s
  251. copy log.gw c:\bbs\s
  252. del in.use
  253. del pcboard.*
  254. goto end
  255.  
  256. :Geop
  257. dm 1 pcb12 * c:\bbs\games\geo\
  258. cd \bbs\games\geo
  259. if exist in.use goto inuse
  260. copy c:\bin\in.use
  261. copy cfg1.dor config.dor
  262. rem geop c:\bbs\games\geo\pcboard.sys
  263. geop c:\bbs\games\geo
  264. del pcboard.*
  265. del in.use
  266. goto end
  267.  
  268. :Globewar
  269. cd\bbs\games\globewar
  270. if exist in.use goto inuse
  271. copy c:\bin\in.use
  272. war /r c:\bbs\dorinfo1.def
  273. del *.lok
  274. del in.use
  275. goto end
  276.  
  277. :Golf
  278. cd\bbs\games\golf
  279. if exist in.use goto inuse
  280. copy c:\bin\in.use
  281. copy golf-st1.cfg golf-st.cfg
  282. golf-st golf-st.cfg
  283. del in.use
  284. goto end
  285.  
  286. :Gupsup
  287. dm 1 pcb14 * *
  288. cd \bbs\games\guppies
  289. if exist in.use goto inuse
  290. copy c:\bin\in.use
  291. gupsup4 gup1.cfg
  292. copy guppies.dat c:\bbs\s\guppies.msg
  293. del in.use
  294. goto end
  295.  
  296. :Hangman
  297. cd \bbs\games\hangman
  298. if exist in.use goto inuse
  299. copy c:\bin\in.use
  300. copy hang1.cfg hang.cfg
  301. hang hang.cfg /s
  302. del in.use
  303. goto end
  304.  
  305. :Indy
  306. cd\bbs\games\indy
  307. if exist in.use goto inuse
  308. copy c:\bin\in.use
  309. indiana c:\bbs\dorinfo1.def
  310. del in.use
  311. goto end
  312.  
  313. :Keno
  314. dm 1 pcb12 * *
  315. cd \bbs\games\keno
  316. if exist in.use goto inuse
  317. copy c:\bin\in.use
  318. keno 1
  319. del in.use
  320. goto end
  321.  
  322. :Life
  323. cd \bbs\games\life
  324. if exist in.use goto inuse
  325. copy c:\bin\in.use
  326. lifespan 2 19200 1 %2 %4 %5 1
  327. del in.use
  328. goto end
  329.  
  330. :Match
  331. cd\bbs\games\match
  332. if exist in.use goto inuse
  333. copy c:\bin\in.use
  334. copy drmatch1.dr drmatch.dr
  335. drmatch
  336. del in.use
  337. goto end
  338.  
  339. :Melee
  340. cd\bbs\games\melee
  341. if exist in.use goto inuse
  342. copy c:\bin\in.use
  343. copy melee1.cfg melee.cfg
  344. melee
  345. del in.use
  346. goto end
  347.  
  348. :Murder
  349. dm 1 pcb14 * *
  350. cd \bbs\games\mm
  351. if exist in.use goto inuse
  352. copy c:\bin\in.use
  353. copy mm1.cfg murder.cfg
  354. murder murder.cfg
  355. del in.use
  356. goto end
  357.  
  358. :Othello
  359. qdoor 2 c:\bbs
  360. cd \bbs\games\othello
  361. if exist in.use goto inuse
  362. copy c:\bin\in.use
  363. copy tfl1.cfg tfl.cfg
  364. tflip tfl.cfg
  365. del in.use
  366. goto end
  367.  
  368. :Overkill
  369. cd\bbs\games\oo
  370. if exist in.use goto inuse
  371. copy c:\bin\in.use
  372. ooinfo 5 c:\bbs\ 1
  373. maintoo
  374. ooii
  375. topten
  376. del in.use
  377. goto end
  378.  
  379. :Pimp
  380. rem qdoor 0 c:\bbs
  381. cd\bbs\games\pimp
  382. if exist in.use goto inuse
  383. copy c:\bin\in.use
  384. lockbaud 2 19200 N 8 1
  385. pimpwars /R /2 /c:\bbs
  386. del in.use
  387. goto end
  388.  
  389. :Pit
  390. cd \bbs\games\pit
  391. rem copy \bbs\dorinfo1.def
  392. rem if exist in.use goto inuse
  393. rem copy c:\bin\in.use
  394. rem copy pit1.cfg pit01.cfg
  395. pit /NODE01
  396. rem del in.use
  397. rem del dorinfo1.def
  398. goto end
  399.  
  400. :Phant
  401. cd \bbs\games\phant
  402. rem phant c:\bbs\dorinfo1.def port:02f8:3 port:f:2
  403. phant c:\bbs\dorinfo1.def
  404. goto end
  405.  
  406. :Planet
  407. dm 1 mgw * c:\bbs\games\planet\
  408. cd \bbs\games\planet
  409. if exist in.use goto inuse
  410. copy c:\bin\in.use
  411. copy pbust1.cfg pbustprm.txt
  412. pbexec pbustprm.txt
  413. pbplay pbustprm.txt
  414. del in.use
  415. del userinfo.txt
  416. goto end
  417.  
  418. :Realms
  419. cd \bbs\games\realms
  420. if exist in.use goto inuse
  421. copy c:\bin\in.use
  422. copy setup1.sr setup.sr
  423. copy setup1.dat srsetup.dat
  424. srdoor 2
  425. srlock 19200
  426. sre
  427. del in.use
  428. goto end
  429.  
  430. :Robot
  431. cd \bbs\games\rob
  432. if exist in.use goto inuse
  433. copy c:\bin\in.use
  434. robo 1 c:\bbs qbbs
  435. del in.use
  436. goto end
  437.  
  438. :Scrabble
  439. cd\bbs\games\scrab
  440. if exist in.use goto inuse
  441. copy c:\bin\in.use
  442. copy scrab1.cfg scrabble.cfg
  443. scrabdor scrabble.cfg
  444. del in.use
  445. goto end
  446.  
  447. :Sharx
  448. dm 1 mgw * c:\bbs\games\card\
  449. cd \bbs\games\card
  450. if exist in.use goto inuse
  451. copy c:\bin\in.use
  452. copy sharx1.cfg sharxprm.txt
  453. sharx
  454. del in.use
  455. del userinfo.txt
  456. goto end
  457.  
  458. :Solitree
  459. qdoor 2 c:\bbs
  460. cd \bbs\games\solitree
  461. if exist in.use goto inuse
  462. copy c:\bin\in.use
  463. copy soli-1.cfg solitree.cfg
  464. solitree solitree.cfg
  465. del in.use
  466. goto end
  467.  
  468. :Solpoker
  469. dm 1 pcb14 * *
  470. cd \bbs\games\sol
  471. if exist in.use goto inuse
  472. copy c:\bin\in.use
  473. sol4 sol1.cfg
  474. copy sol.dat c:\bbs\s
  475. del in.use
  476. goto end
  477.  
  478. :Sslot
  479. cd \bbs\games\suprslot
  480. if exist in.use goto inuse
  481. copy c:\bin\in.use
  482. copy \bbs\dorinfo1.def
  483. suprslot suprslot.cfg c:\bbs\games\suprslot\dorinfo1.def
  484. del in.use
  485. del dorinfo*.def
  486. goto end
  487.  
  488. :Triyat
  489. cd\bbs\games\triyaht
  490. if exist in.use goto inuse
  491. copy c:\bin\in.use
  492. copy triyat1.cfg yahtzee.cfg
  493. yahtzee yahtzee.cfg
  494. del in.use
  495. goto end
  496.  
  497. :Twars
  498. cd\bbs\games\twars
  499. if exist in.use goto inuse
  500. copy c:\bin\in.use
  501. copy \bbs\dorinfo1.def
  502. tw2002.exe -rbbs
  503. copy c:\bbs\s\twtrader.txt c:\bbs\s\tw2002.msg
  504. copy c:\bbs\s\twtrader.ans c:\bbs\s\tw2002.clr
  505. copy c:\bbs\s\twcorp.txt c:\bbs\s\twcorp.msg
  506. copy c:\bbs\s\twcorp.ans c:\bbs\s\twcorp.clr
  507. del in.use
  508. del dorinfo*.def
  509. goto end
  510.  
  511. :Wheel
  512. copy dorinfo1.def c:\bbs\games\wheel
  513. cd\bbs\games\wheel
  514. if exist in.use goto inuse
  515. copy c:\bin\in.use
  516. wheel-4
  517. del in.use
  518. del dorinfo*.def
  519. goto end
  520.  
  521. :Yat
  522. cd \bbs\games\yat
  523. yacht yacht1.cfg
  524. goto end
  525.  
  526. :Yt
  527. cd \bbs\games\yt
  528. if exist in.use goto inuse
  529. copy c:\bin\in.use
  530. yt.exe c:\bbs\dorinfo1.def 19200
  531. copy ytmesg.dat c:\bbs\s
  532. del in.use
  533. goto end
  534.  
  535. :Zag
  536. dm 1 pcb14C * *
  537. copy pcb14.dat pcboard.dat
  538. cd\bbs\games\zwords
  539. if exist in.use goto inuse
  540. copy c:\bin\in.use
  541. copy zwords1.cfg zagwords.cfg
  542. zagwords zagwords.cfg
  543. del in.use
  544. goto end
  545.  
  546. :Zodiac
  547. dm 1 pcb14 * *
  548. cd \bbs\games\zodiac
  549. if exist in.use goto inuse
  550. copy c:\bin\in.use
  551. copy zodiac1.cfg zodiac.cfg
  552. zodiac zodiac.cfg
  553. del in.use
  554. goto end
  555.  
  556. :Alaska
  557. dm 1 spitfire * *
  558. cd \bbs\games\alaska
  559. if exist in.use goto inuse
  560. copy c:\bin\in.use
  561. copy c:\bbs\sfdoors.dat
  562. sfaktrv /p c:\bbs\s\aktriv
  563. copy c:\bbs\s\aktriv.bbs c:\bbs\s\aktriv.msg
  564. del c:\bbs\s\aktriv.bbs
  565. del sfdoors.dat
  566. del in.use
  567. goto end
  568.  
  569. :Computer
  570. dm 1 spitfire * *
  571. cd \bbs\games\computer
  572. if exist in.use goto inuse
  573. copy c:\bin\in.use
  574. copy c:\bbs\sfdoors.dat
  575. sfcomtrv /p c:\bbs\s\comtriv
  576. copy c:\bbs\s\comtriv.bbs c:\bbs\s\comtriv.msg
  577. del c:\bbs\s\comtriv.bbs
  578. del sfdoors.dat
  579. del in.use
  580. goto end
  581.  
  582. :Disney
  583. dm 1 spitfire * *
  584. cd \bbs\games\disney
  585. if exist in.use goto inuse
  586. copy c:\bin\in.use
  587. copy c:\bbs\sfdoors.dat
  588. sfdistrv /p c:\bbs\s\distriv
  589. copy c:\bbs\s\distriv.bbs c:\bbs\s\distriv.msg
  590. del sfdoors.dat
  591. del in.use
  592. goto end
  593.  
  594. :Emerg
  595. dm 1 spitfire * *
  596. cd \bbs\games\emerg
  597. if exist in.use goto inuse
  598. copy c:\bin\in.use
  599. copy c:\bbs\sfdoors.dat
  600. sfemstrv /p c:\bbs\s\emerg
  601. del sfdoors.dat
  602. copy c:\bbs\s\emerg.bbs c:\bbs\s\emerg.msg
  603. del c:\bbs\s\emerg.bbs
  604. del in.use
  605. goto end
  606.  
  607. :Hobbit
  608. dm 1 spitfire * *
  609. cd \bbs\games\hobbit
  610. if exist in.use goto inuse
  611. copy c:\bin\in.use
  612. copy c:\bbs\sfdoors.dat
  613. sfhobtrv /p c:\bbs\s\hobtriv
  614. copy c:\bbs\s\hobtriv.bbs c:\bbs\s\hobtriv.msg
  615. del c:\bbs\s\hobtriv.bbs
  616. del sfdoors.dat
  617. del in.use
  618. goto end
  619.  
  620. :Movie
  621. dm 1 spitfire * *
  622. cd \bbs\games\movie
  623. if exist in.use goto inuse
  624. copy c:\bin\in.use
  625. Copy c:\bbs\sfdoors.dat
  626. sfmovtrv /p c:\bbs\s\movtriv
  627. copy c:\bbs\s\movtriv.bbs c:\bbs\s\movtriv.msg
  628. del c:\bbs\s\movtriv.bbs
  629. del sfdoors.dat
  630. del in.use
  631. goto end
  632.  
  633. :Potpourr
  634. dm 1 spitfire * *
  635. cd \bbs\games\potpourr
  636. if exist in.use goto inuse
  637. copy c:\bin\in.use
  638. copy c:\bbs\sfdoors.dat
  639. sfpottrv /p c:\bbs\s\pottriv
  640. copy c:\bbs\s\pottriv.bbs c:\bbs\s\pottriv.msg
  641. del c:\bbs\s\pottriv.bbs
  642. del sfdoors.dat
  643. del in.use
  644. goto end
  645.  
  646. :Rockroll
  647. dm 1 spitfire * *
  648. cd \bbs\games\rockroll
  649. if exist in.use goto inuse
  650. copy c:\bin\in.use
  651. copy c:\bbs\sfdoors.dat
  652. sfroctrv
  653. del sfdoors.dat
  654. del in.use
  655. goto end
  656.  
  657. :Sex
  658. dm 1 spitfire * *
  659. cd \bbs\games\sextriv
  660. if exist in.use goto inuse
  661. copy c:\bin\in.use
  662. copy c:\bbs\sfdoors.dat
  663. sfsextrv /p c:\bbs\s\sextriv
  664. copy c:\bbs\s\sextriv.bbs c:\bbs\s\sextriv.msg
  665. del c:\bbs\s\sextriv.bbs
  666. del sfdoors.dat
  667. del in.use
  668. goto end
  669.  
  670. :Sports
  671. dm 1 spitfire * *
  672. cd \bbs\games\sports
  673. if exist in.use goto inuse
  674. copy c:\bin\in.use
  675. copy c:\bbs\sfdoors.dat
  676. sfsprtrv /p c:\bbs\s\sprtriv
  677. copy c:\bbs\s\sprtriv.bbs c:\bbs\s\sprtriv.msg
  678. del c:\bbs\s\sprtriv.bbs
  679. del sfdoors.dat
  680. del in.use
  681. goto end
  682.  
  683. :Startrek
  684. f:\dm 1 spitfire * *
  685. cd \bbs\games\startrek
  686. if exist in.use goto inuse
  687. copy c:\bin\in.use
  688. copy c:\bbs\sfdoors.dat
  689. sfsttrv /p c:\bbs\s\sttriv
  690. copy c:\bbs\s\sttriv.bbs c:\bbs\s\sttriv.msg
  691. del c:\bbs\s\sttriv.bbs
  692. del sfdoors.dat
  693. del in.use
  694. goto end
  695.  
  696. :Televis
  697. f:\dm 1 spitfire * *
  698. cd \bbs\games\tv
  699. if exist in.use goto inuse
  700. copy c:\bin\in.use
  701. copy c:\bbs\sfdoors.dat
  702. sftvtrv /p c:\bbs\s\tvtriv
  703. copy c:\bbs\s\tvtriv.bbs c:\bbs\s\tvtriv.msg
  704. del c:\bbs\s\tvtriv.bbs
  705. del sfdoors.dat
  706. del in.use
  707. goto end
  708.  
  709. :Educ
  710. cd\bbs\games\doorway
  711. if exist in.use goto inuse
  712. copy c:\bin\in.use
  713. copy c:\bbs\door.sys
  714. doorway sys /o:t /i:emenu
  715. del door.sys
  716. del in.use
  717. goto end
  718.  
  719. :Fin
  720. cd\bbs\games\doorway
  721. if exist in.use goto inuse
  722. copy c:\bin\in.use
  723. copy c:\bbs\door.sys
  724. doorway sys /o:t /i:fmenu
  725. del door.sys
  726. del in.use
  727. goto end
  728.  
  729. :Games
  730. cd\bbs\games\doorway
  731. if exist in.use goto inuse
  732. copy c:\bin\in.use
  733. copy c:\bbs\door.sys
  734. doorway sys /o:t /i:gmenu
  735. del door.sys
  736. del in.use
  737. goto end
  738.  
  739. :Ansi
  740. dm lock 1 19200 default * c:\bbs\games\ansi\
  741. cd\bbs\games\ansi
  742. if exist in.use goto inuse
  743. copy c:\bin\in.use
  744. copy \bbs\dorinfo1.def
  745. ansisee2
  746. del in.use
  747. del dorinfo1.def
  748. goto end
  749.  
  750. :Doordos
  751. doorway com2 /m:240 /s:* /g:on /o:t /v:d /c:dos
  752. goto end
  753.  
  754. :Refund
  755. cd\bbs\games\refund
  756. if exist in.use goto inuse
  757. copy c:\bin\in.use
  758. refunds 2 y
  759. copy refunds.txt c:\bbs\s\user1.msg
  760. del in.use
  761. goto end
  762.  
  763. :Silver
  764. cd \bbs\silver
  765. if exist in.use goto inuse
  766. copy \bin\in.use
  767. copy \bbs\dorinfo1.def
  768. copy xpmail1.ctl xpmail.ctl
  769. copy xpmail1.prm xpmail.prm
  770. xpmail -p2 -f -b19200 -fcts -tsys -lrf -g -ml -mt1 %1 %2 %3 %4 %5 %6 %7
  771. del dorinfo1.def
  772. del in.use
  773. goto end
  774.  
  775. :Tagg
  776. dsz port 2 sb -g d:\tag\tagd25g.zip d:\tag\tagm25g.zip d:\tag\tags25g.zip d:\tag\patch25g.zip
  777. goto end
  778.  
  779. :Tagy
  780. dsz port 2 sb d:\tag\tagd25g.zip d:\tag\tagm25g.zip d:\tag\tags25g.zip d:\tag\patch25g.zip
  781. goto end
  782.  
  783. :Tagz
  784. dsz port 2 sz d:\tag\tagd25g.zip d:\tag\tagm25g.zip d:\tag\tags25g.zip d:\tag\patch25g.zip
  785. goto end
  786.  
  787. :Inuse
  788. Echo Sorry, this door is already in use. > com2
  789. Echo Please try again in a few minutes.  > com2
  790.  
  791. :End
  792. echo %5 %6 returned from %1 on %_date at %_time. >> e:\bu\dsz1.log
  793. Echo %5 %6 returned from %1 at %_time on node %node. >> c:\bbs\s\bullet18.msg
  794. cd\bbs
  795. exit
  796.